home *** CD-ROM | disk | FTP | other *** search
/ The Business Master (3rd Edition) / The Business Master (3rd Edition).iso / files / utilreen / dmplas / dmplas.exe / DLTEST-4.BAS < prev    next >
Encoding:
BASIC Source File  |  1991-08-15  |  1.8 KB  |  37 lines
  1. 10 FILE$="DLTEST-4.PRN"
  2. 20 CR$=CHR$(13) :LF$=CHR$(10) :CRLF$=CR$+LF$ :ESC$=CHR$(27)
  3. 30 PRINT CRLF$:PRINT "     Creating ";FILE$;" - Please wait ";
  4. 40 OPEN "O",#1,FILE$
  5. 50 R$="L...5....1....5....2....5....3....5....4....5....5....5....6....5....7....5....8"
  6. 60 GOTO 150
  7. 70 PRINT#1,ESC$;"l";CHR$(0); :RETURN
  8. 80 PRINT#1,ESC$;"l";CHR$(L);"L for ESC 'l'";L: RETURN
  9. 90 PRINT#1,ESC$;"0";R$
  10. 100 FOR L=0 TO 60 STEP 20 :GOSUB 80 :NEXT L
  11. 110 GOSUB 70
  12. 120 PRINT#1,ESC$;"2";R$ :RETURN
  13. 130 PRINT#1,CRLF$;ESC$;"Q";CHR$(R);"Right margin set with ESC 'Q'";R
  14. 140 PRINT#1,R$ :RETURN
  15. 150 PRINT#1,ESC$;"@";"     DLTEST-4  Left and Right Margin Commands";CRLF$
  16. 160 PRINT#1,ESC$;"PPitch set to 10 cpi" :GOSUB 90
  17. 170 PRINT#1,CHR$(15);"Pitch set to 16.66 cpi" :GOSUB 90
  18. 180 PRINT#1,CHR$(18);CRLF$
  19. 190 PRINT#1,ESC$;ESC$;"&s0CBypass code  ESC ESC '&s0C' turns laser printer end-of-line wrap on"
  20. 200 R=65 :GOSUB 130 :R=40 :GOSUB 130 :R=80 : GOSUB 130
  21. 210 PRINT#1,CRLF$;"L/R margins set with ESC 'X' 20 50";ESC$;"X";CHR$(20);CHR$(50)
  22. 220 PRINT#1,R$;CRLF$
  23. 230 PRINT#1,ESC$;ESC$;"9";CR$;"Bypass code ESC ESC 9 CR clears both margins on laser printer"
  24. 240 PRINT#1,ESC$;"X";CHR$(0);CHR$(80);"Dot matrix printer requires ESC 'X' 0 80 to reset"
  25. 250 PRINT#1,R$;CRLF$
  26. 260 PRINT#1,ESC$;ESC$;"&s1CBypass code  ESC ESC '&s1C' turns laser printer end-of-line wrap off"
  27. 270 R=65 :GOSUB 130 :R=40 :GOSUB 130 :R=80 : GOSUB 130
  28. 280 PRINT#1,CRLF$;"L/R margins set with ESC 'X' 20 50";ESC$;"X";CHR$(20);CHR$(50)
  29. 290 PRINT#1,R$;CRLF$
  30. 300 PRINT#1,ESC$;"X";CHR$(0);CHR$(80);"Dot matrix printer requires ESC 'X' 0 80 to reset"
  31. 310 PRINT#1,ESC$;ESC$;"9";CR$;"Bypass code ESC ESC 9 CR clears both margins on laser printer"
  32. 320 PRINT#1,R$;
  33. 330 PRINT#1,CHR$(12);ESC$;"@";
  34. 340 CLOSE #1
  35. 350 SYSTEM
  36. 360 END
  37.